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O TK 90X representa uma revolucao na area 
de microcomputadores pessoais. 

O seu baixo preco, versatilidade e facilidade em 
opera-lo garantem-lhe o primeiro lugar como o mi¬ 
cro para adultos e criancas. 

E ele a ferramenta mais sensacional para exer- 
citar a sua inteligencia. 

Para que voce possa testar as suas reacoes, 
seus reflexos, sua capacidade mental e principal- 
mente para poder tornar a sua vida mais excitan- 
te e colorida, e que apresentamos o livro Jogos 
e Desenhos no TK 90X, no qual aparecem 20 pro- 
gramas originais escritos em BASIC. 




Em alguns, voce competira em corridas; em ou- 
tros, aniquilara invasores, saltara obstaculos, vera 
lindos desenhos se formando na tela e, o que e 
fundamental, apos ter "participado” ativamente 
desta distracao eletronica, estara apto a dar va- 
zao a sua criatividade, fazendo seus proprios pro- 
gramas e usando e abusando da sua, ate entao 
inerte, genialidade. 
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Agora ja se tem no Brasil uma maquina rea.1 
ment e de alto nlvel por baixo preqo - o micro pes — 
soal TK 90X. 

Justamente por suas multiples qualidades 
e que apostamos no sucesso deste micro e por isso 
procuramos contribuir com este livro que contem 20 
programas que demonstrarao a grande potencialidade 
da maquina com a qual o leitor vai lid,ar, 

Este li'vro destina^se a pessoas que ja pos 
suem um pequeno conhecimento da linguagem BASIC no 
TK 90X (alias este e o titulo de um livro do nosso 
pai, no qual, quern nao conhece nada de BASIC pode a-' 
prender os primeiros e os passos seguintes . . 

Sao apresentadas listagens completas devi^- 
damente testadas de 20 programas relativos a jogos 
e graficos. 

No caso de jogos,destaca-se como sao oscon 
troles, porem em nenhum dos programas entra-se na ex 
plicaqao da logica dos mesmos, 

Todavia nao e necessario muito esfor^o pa¬ 
ra se entender esta logica,visto que a linguagem 
os programas sao relativamente simples. 


e 



Foi nossa intenqao instruir e principalmen 
te divertir o(a) estimado(a) futuro(a) proprietS- 
rio(a) deste li'vro com os programas referentes a jo 
gos e desenhos- que aqui aparecem. 

Esperamos que o nosso<objetivo seja atingi 
do e que voce .passe horas e horas alegres ao lado 
do seu "amigo" o microcomputador TK 90X. 
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Este programa vai desenhar o rosto de uma 
pessoa com o uso das instruqoes DRAW, CIRCLE e PLOT 
era alta resoluqao. Voce nao se cansara nem demorara 
para obter o maravilhoso rosto que sera exibido pe- 
lo seu TK-90X COLOR COMPUTER, o qual sorteara alea- 
toriamente diferentes cores do fundo da tela que 
lhe proporcionara escolher qual a cor de sua prefe- 
rencia. £ claro que gosto nao se discute.., 

Tente fazer com que seu TK-90X COLOR COM¬ 
PUTER tambem sorteie aleatoriamente a cor da moldu- 
ra do quadro. 


& A instruqao DRAW aparece no programa com tres 
dados os quais respectivamente correspondem a abs¬ 
cissa, a ordenada e ao angulo especificado era radia 

nos. „ 

Para maiores informaqoes consulte o livro 

BASIC no TK-90X o qual alem de ensina-lo mais deta- 

Ihadamente sobre a instruqao DRAW tambem ensinara 

voce as instruqoes CI-RCLE e PLOT. 


5 REM ***Face***: 

10 INK-..0: PAPER 7*RND:BORDER 0:CLS:CIRCLE 130,70,60 
15 PLOT 77,94 
30 DRAW 77,30,1 
35 DRAW 29,-25,1 
50 CIRCLE 100,80,7 
60 CIRCLE 100,80,1 
70 CIRCLE 100,80,2 
80 CIRCLE 160,80,1 
90 CIRCLE 160,80,2 
100 CIRCLE 160,80,7 
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110 PLOT 100,90:DRAW -12,-10,2:PLOT 171,80:DRAW -12,10,2 
120 PLOT 115,70:DRAW 30,10,4.3 

130 PLOT 105,44:DRAW 50,0,3:PLOT 105,44:DRAW 50,.0,2 
140 PLOT 74,90:DRAW -3,-30,1.4:PLOT 187,90:DRAW 3,-30,-1,4 
150 FOR f=l TO 30:SOUND ,018,f:NEXT f 
160 GOTO 10 
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Agora vamos para um programa grafico que 
remonta ate um certo patriotismo. Este programa vai 
Ihe fornecer um grafico do Brasil em baixa resolu- 
gao, que piscara em diversas cores, podendo voc 
colher a que mais Ihe agradar. Atraves deste meto- 
do, podem-se fazer varios desenhos (graficos) das 
mais diversas opgoes. 

Espero que apos ver este programa voce pos 
sa desenhar seus proprios mapas. 


10 LET f=INT (RND*7+1) 

20 BORDER f 

30 LET r=INT(RND*6+l) 

40 IF r=f THEN GOTO 30 
50 PRINT INK r;AT 0,11; " 
60 PRINT INK r;AT 1,8;"Q 
70 PRINT INK r;AT 2,S;"» 
80 PRINT INK r;AT 3,7 
90 PRINT INK r;AT 4,6;"B 



100 PRINT INK r 


110 PRINT INK r ;AT 6,5; " >■■■■■■■■■■»■■■■■■! 
120 PRINT INK r ;AT 7,5; " HIIMIIIIIIIIlliiim 
130 PRINT INK r ;AT 8,7;" BBaillIMI|||M||| r 1 
140 PRINT INK r;AT 9,11R AS I LIAll" 

150 PRINT INK r;AT 10,12 "■■■■■■■■■■■■ - 

160 PRINT INK r ;AT 11,-13 

170 PRINT INK r;AT 12,13 " 3HMUME" 

180 PRINT INK r ;AT 13,13 "aillsplll » 

190 PRINT INK r;AT 14,14 "SSHMVB" 

200 PRINT INK r;AT 15,15" 

210 PRINT INK r;AT 16,15 ’’■■■■E" 

220 PRINT INK r;AT 17,14 " OBMIJ »• 

230 PRINT INK r;AT 13,15 "OIH " 

240 FOR k=l TO 10:LET c=INT(RND*30+1):SOUND .l,c:NEXT k 
250 GOTO 10 


at 1 , 8 ;" QBQaBuayg» 

AT 2,3; H BMMMHMan " 

AT 3,7; "■■■■■■■■■■■UHQ " 

AT 4,6; n BHHBMHmmH H .. 

;AT 5,5; 


tD> 
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Voce sabe o que e um caleidoscopio? Por de 
finiqao, caleidoscopio vem a ser um cilindro opaco 
ao longo do qual estao dispostos varies espelhos, 
de maneira que pequenos objetos coloridos coloca- 
dos no tubo produzem ali desenhos variados e sime- 
tricos. 

Que tal construir seu proprio' caleidosco¬ 
pio? Aqui esta um progratna que Simula este objeto 
na tela do seu computador. Garanto que voce adorara 
os padroes formados por ele, pois nao deixa a dever 
para nenhum caleidoscopio real. 

10 LET d=0 
20 LET s=22928 
30 LET $,1*0 
40 FOR i=l TO- 12 
50 FOR j-0 TO 1 
60 LET d=d+.03 
70 LET k=INT (127 *SIN d) 

80 POKE s+j,k 
90 POKE s-j-l,k 
100 POKE s+32-31*i+32*j,k 
110 POKE s-31*i-32*j,k 
120 POKE s-33*i+31+32*j,k 
130 POKE s-33*i-l-32*j,k 
140 POKE s-64*i+31-j,k 
150 POKE s-64*i+32+j,k 
160 NEXT j 
170 LET Jt*JUl 
180 LET s=s+32 
190 NEXT i 
200 GOTO 20 





DESENHANDO 

NA 

TELA 
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Aqui esta um programa para voce desenvol- 
ver suas qualidades artlsticas. Neste programa de 
desenho, voce demonstrara todo seu talento atraves 
das mais belas pinturas. 

Como comandos, voce tern as seguintes op- 

goes: 

U-desenha para cima 
J-desenha para baixo 
K-desenha para direita 
H-desenha para esquerda 

Y-desenha na diagonal, para cima e esquerda 
I-desenha ria diagonal, para cima e direita 
N-desenha na diagonal, para baixo e esquerda 
M-desenha na diagonal, para baixo e direita 
C-pede o valor da cor (no.+ENTER) 

7-determina cor de fundo para que possa se.apagar uma linha 
V-apaga toda tela 

Agora que voce tern todas as informagoes 
necessarias, divirta-se, e espero que seus desenhos 
nao deixem a dever para nenhum PORTINARl! 


10 LET p=0 

20 LET x=130:LET y=100 

30 IF x > = 255 THEN LET x = 255 

40 IF x <= 1 THEN LET x=l 

50 IF y >= 175 THEN LET y = 175 

60 IF y < = 1 THEN LET y = 1 

70 PLOT INK p;x,y 

80 LET t$ = INKEY$ 

90 IF t$ - "h" THEN LET x * x-1 



100 IF t$ = "k" THEN LET x = x+1 

110 .IF t$ = "u" THEN LET y « y+1 

120 IF t$ = M i"' THEN LET y = y-1 

130 IF t$ = "n" THEN LET x - x-1: LET y 

140 IF t$ = "m" THEN LET x = x+1: LET y 

150 IF t$ = "y" THEN LET x » x-1: LET y 

160 IF t$ = "i" THEN LET x = x+1: LET y 

170 IF t$ = "c" THEN INPUT p 

180 IF t$ = M 7" THEN LET p = 7 

190 IF t$ = "v" THEN CLS 

200 GOTO 30 
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Este e urn programs no qual mostramos a uti 
lidade da instrugao BIN (voce podera obter informa- 
goes mais profundas no livro BASIC no TK-90X) com a 
qual definimos varios caracteres. Nos definimos o 
homem que ira se movimentar em 14 letras divididas 
da seguinte maneira: 3 letras definem’ a cabega, 1 
letra define a cabega para direiita, outra para es- 
querda e a outra no meio. As pernas possuem 5 le¬ 
tras definidas com a instrugao BIN duas sao para de 
finir posigoes diferentes para a esquerda,.uma defi 
ne a posigao central e as outras duas sao posigoes di 
ferentes para a direita, Os bragos possuem 6 letras 
que definem dois tipos de posigao para esquerda, 
dois tipos de posigao para direita e dois tipos de 
posigao na qual os bragos estao voltados para fren 
te. No programa podemos averiguar na linha 10 que 
a letra r varia de 1 a 14 isso significa que o pro¬ 
grama entrara em urn loop que rodara 14 vezes para 
poder definir as 14 letras com a instrugao BINe com 
o auxxlio das instrugoes DATA e READ. Este progra¬ 
ma e uma animagao em que voc£ controlara o homem p 
ra esquerda com a tecla 5, para a direita com a t 
cla 8 e se voce nao apertar nenhuma tecla ele fica 
observando, mexendo as maos. 

(o BS^ ) Toda vez que uma letra estiver entre colche- 
tes deve ser escrita em modo grafico. 



IP ip 


20 
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1 PAPER 6:BORDER 1:INK 0 

10 FOR r=l TO 14 

20 READ a$ 

30 FOR s=0 TO 7 

40 READ e 

50 POKE USR a$+s,e 

60 NEXT s 

70 NEXT r 

80 DATA "E",BIN 00111100, BIN 01000010, BIN 01011010, 

BIN 10000001, BIN 10100101, BIN 01011010, BIN 01000010, 
BIN 00100100 

90 DATA "F", BIN 00100110, BIN 00011001, BIN 00100001, 

BIN 01011001, BIN 11000001, BIN 00100010, BIN 00100100, 
BIN 00011000 

100 DATA "G", BIN 01100100, BIN 10011000, BIN 10000100, 

BIN 10011010, BIN 10000011, BIN 01000100, BIN 00100100, 
BIN 00011000 

110 DATA "H M , BIN 00011000, BIN 00111100, BIN 01011010, 

BIN 11011011, BIN 10011001, BIN 10011001, BIN 10011001, 
BIN 11011011 

120 DATA "I", BIN 00011000, BIN 00111100, BIN 01011010, 

BIN 01011010, BIN 10011001, BIN 01011010, BIN 00111100, 
BIN 00011000 

130 DATA "J", BIN 00000000, BIN 00011000, BIN 00100100, 

BIN 00100100, BIN 01000010, BIN 01000010, BIN 01000010, 

BIN 11000011 

140 DATA "L", BIN 00011000, BIN 00011000, BIN 10011000, 

BIN 01010100, BIN 00100010, BIN 00100010, BIN 00000001, 
BIN 00000001 

145 DATA "M", BIN 00011000, BIN 00010000, BIN 00011001, 

BIN 00101010, BIN 01000100, BIN 01000100, BIN 01000000, 

BIN 01000000 


150 DATA "N", BIN 00100000, BIN 00110000, BIN 00101000, 

BIN 01000100, BIN 01000100, BIN 01000100, BIN 01000100 
BIN 00000000 

160 DATA ”0", BIN 00000100, BIN 00001100, BIN 00010100, 

BIN 00100010, BIN 00100010, BIN 00010001, BIN 00100011, 

BIN 00000000 

170 DATA "P", BIN 00011000, BIN 11011000, BIN 10110000, 

BIN 10110000, BIN 10111000, BIN 00100100, BIN 01100010, 

BIN 00100000 

180 DATA "Q", BIN 00011000, BIN 01111000, BIN 10010000, 

BIN 10110010, BIN 01110100, BIN 00101000, BIN 01100000, 

BIN 00100000 

190 DATA ”R", BIN 00011000, BIN 00011011, BIN 00001001, 

BIN 00001101, BIN 00011101, BIN 00100100, BIN 01000110, 

BIN 00000100 

200 DATA "S", BIN 00011000, BIN 00011110, BIN 00001001, 

BIN 01001101, BIN 00101110, BIN 00010*100, BIN 00000110, 

BIN 00000100 
210 LET c=15 
220 GOSUB 300 

230 PRINT AT 11,c; " □[£]□"; AT 12,c; "□[l]D"; AT 13,c; "□[jllT 
240 SOUND .3,4 

250 PRINT AT 11,c; "□[f] 0; AT 12,c; "□[h]D": SOUND .3,5 
260 PRINT AT 11 ,'C; ”0[e]D m ; AT 12,c; "□[l]p”; AT 13,c; 

270 PRINT AT 11,c; "□[g]CT; AT 12,a; "D[h]D" 

280 SOUND .3,5 
290 GOTO 220 

300 LET a$ = INKEY$: PRINT AT 0,c-l 
310 IF a$ = "5" THEN LET c = c-1: GOTO 340: GOTO 300 
320 IF a$ = "8" THE LET c = c+1: GOTO 340: GOTO 300 
330 RETURN 

340 IF c < 0 THEN LET c = 29: PRINT AT 11,0; ‘tf; AT 12,0;'t?’; 
AT I3,0;"d ,> 




350 PRINT AT 11,c; AT 12,c; "QJrJd"; AT 13,c; "□[«] 

355 SOUND .01,10 

360 PRINT AT 11,c; ”Q[o]D" 

370 SOUND .018,5 
380 RETURN 

400 IF c >29 THEN LET c = 0 

410 PRINT AT 11,c; "□[gJC]"; AT-12,c; "n[p]D"; AT 13,c ;”d[l][T 
415 SOUND .01,5 

420 PRINT AT 11,c; AT 12,c; "d[Q]C 1"; AT 13,1c; "□[ N ]n 

430 SOUND '.018,5 
440 RETURN 



IBS.: Se voce quiser desenhar uraa forma human3ide veja 
abaixo corao pode conseguir isto com o auxflio 
dos codigos BIN. 



C6digos Bin 
00011000 
00011000 
01111110 
01011010 
00011000 
00011000 
00111100 
00100100 
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0 titulo desse joguinho parece meio estra- 
nho, mas nao e, Glub e o nome que inventamos para 
um monstrinho que vive "enrustido". 0 glubiriani- 
ta. vive em cavernas e nao pode se expor a luz so¬ 
lar. 0 problema e que o seu habitat foi invadido 
por blublurianitas que.estao tentando captura-lo, 
o que ocasionara sua morte certa pois querem fazer 
experiencias com a especie tao rara. Tente orien- 
tar o caminho do seu glubirianita de maneira que 
ele consiga escapar permanecendo dentro de sua ca¬ 
ve rna o maior tempo possivel. Porem existe um serio 
problema, quando o seu glubirianita esta apavorado 
ele desprende uma substancia mortal que voce pode 
identificar facilmente atraves do rastro deixado, 
logo voce'ja deve ter concluido que nao podera pas- 
sar por cima desse rastro. 



OBS . :) Toda vez que aparecer 


tes (no caso desse programa 


esc.ri ta em mo do grafico . 


uma letra entre colche- 
a letra [gj) deve ser 


Note que este ja S o segundo aviso 

10 REM GLUB 
20 PAPER 6: BORDER 1 
30 FOR y=l TO 7: READ m 
40 POKE USR" [E] 

50 DATA 60,126,219,219,255,255,102,0 : NEXT y 
60 LET p$ = ,, nDEEE]a" 

70 LET d=l : LET z=3 
80 REM INTRODUQAO 
90 PRINT TAB 8; INK 2 ;"G □□□";:PAUSE 10: PRINT INK 3;"L 
ODD PAUSE 10: PRINT INK 2; M UEJnn PAUSE 10: 
PRINT INK 2; "B" 
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100 INPUT "Velocidade (0-10):0 e a raais rapidaD";v 

110 PRINT INK 4; PAPER 1; FLASH 1; AT 10,0;"DBoa sorte” 

120 PAUSE 300: CLS 

130 INK 2: PLOT 248,168': DRAW -241,0: DRAW 0,-161: DRAW 241,0: 
DRAW 0,160 

140 LET q=ll: LET w=16: LET q$=STR$(INT(RND*4)+5) 

150 PRINT INK 0; AT 0,20;p$ 

160 PRINT INK 2; AT q,w; "Ce]" 

170 FOR x=l TO v*2: NEXT x 
180 IF INKEY$ <> "" THEN LET q$=INKEY$ 

190 PRINT INK 3; AT q,w;'# n 
200 LET q=q+(q$="6")-(q$="7") 

210 LET w=w+(qS= n 8")-(q$="5") 

220 IF q=21 OR q=0 THEN LET q=ABS(q-20) 

230 IF w=31 OR w= 0 THEN LET w=ABS(w-30) 

240 SOUND .00l8,RND*20 
250 LET d=d+l: PRINT INK 1;PAPER 4;FLASH 1; AT 0,0;''TEMPO Cfjd 
260 IF SCREEN$(q,w)*="#" THEN GOTO 280 
270 GOTO 100 

280 CLS: PRINT PAPER 1; INK 7; FLASH 1; AT 11,0;"!JI!!M!I!* *! 

bang 11: i n 
290 LET z=z-l 
300 IF z=0 THEN GOTO 350 

310 LET pi*"": FOR i=l TO z:LET p$=p$+ u CE]": NEXT i 
320 INK 2: PRINT AT 12,10” ”sS restarn z;"DGLUBS" 

330 PRINT "PREPARE-SE" 

340 GOTO 120 

350 INK 3:PRINT AT_ 13,3; FLASH 1; "ACABOU";”DVocl fezD";d; 
"□PONTOS" 

360 INPUT "Jogar de novo M ;d$ 

370 IF d$="s H THEN RUN 
380 STOP 
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Voce ja sentiu a emogao de penetrar numa 
mina de brilhantes e garirapar os diamantes? Se nao, 
agora voce tera esta chance. Neste programa, voce 
se localiza dentro de uma mina de diamantes e ou- 
tras pedras de menor valor, e seguramente voce quer 
enriquecer. Entao, no menor espago de tempo, sua 
missao e colher o maior numero de diamantes possi- 
vel. Para isto, basta voce passar por cima das pe¬ 
dras que estao piscando por toda parte da tela. Mas 
cuidado, cada vez que voce passar por cima de um 
cristal que nao esta piscando, voce deixara cair um 
diamante. 

A sua contagem aparecera ao final de um 
certo intervalo de tempo. Esta e sua chance de se 
tornar multimilionario. Boa sorte! 


CONTROLES 
A, move para cima 
Z. move para baixo 

M. move para a direita 

N. move para a esquerda 




Na linha 130, deve-se pressionar o 
modo grafico antes de se teclar a 
letra a,para se obter o caracter 
formado. Esta e uma outra simbologia... 


10 LET a=0: LET t=ll: LET h=16: LET i=l 
20 FOR y=0 TO 31 
30 FOR c=0 TO 20 
40 LET f=XNT(RND*6+l) 

50 IF f >3 THEN BRIGHT 1: FLASH 1: LET i=i+l: GOTO 70 
60 BRIGHT 0: FLASH 0 
70 PRINT INK ,f; AT c,y;"«" 

80 NEXT c: NEXT y 
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90 FOR p=0 TO 7: READ d: POKE USR "a"+p,d: NEXT p 
100 FOR v=l TO 250 

110 IF ATTR (t,h) >= 128 THEN LET a=a+l: GOTO 130 
120 LET a=a-l 

130 PRINT FLASH 0: AT t,h;"a" 

140 LET tl=t: LET hl=h 
150 LET t$= INKEY$ 

160 IF t$="a" THEN LET t»t-l: PRINT FLASH 0; INK 0; AT 
t+l,h;"B" 

170 IF t$="z" THEN LET t=t+l: PRINT FLASH 0; INK 0; AT 
t-l,h;"«" 

180 IF t$=”m" THEN LET h=h+l: PRINT FLASH 0; INK 0; AT 
t,h-l;"B" 

190 IF t$="n" THEN LET h=h-l: PRINT FLASH 0; INK 0; AT 
t,h+l;"B" 

200 IF t >= 20 THEN LET t = 20 
210 IF t< = 0 THEN LET t=0 
220 IF h >- 31 THEN LET h=31 
230 IF h< = 0 THEN LET h=0 
240 IF t=tl AND h=hl THEN LET v=v+l: IF v >=250 THEN GOTO 280 
250 IF t~tl AND h=hl THEN GOTO 150 
260 SOUND .05,1 
270 NEXT v 

280 CLS: PRINT "voce fezU ";a;”D pontos" 

290 PRINT "mais urn jogo?": INPUT n$:IF n$="s” THEN RUN 
300 DATA'BIN 00011000, BIN 00111100, BIN 00011000, 

BIN 11111000, BIN 00011000, BIN 00100100, BIN 01000010, 
BIN 10000001 
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Que tal agora experimentar um voo em meio 
a um perigoso labirinto? Neste programa, voce se 
transformara em um piloto experimentado, que tera 
que conduzir suanave por um labirinto de rochedos. 
Ao menor toque nos rochedos, voce explodira, levan- 
do consigo a tripulaqao inteira de suamissao. 

Nervos de aqo e muita habi1idade!Tente pas 
sar pelos rochedos! 


,OBS.y Nas linhas 50,300 .e 330, 
mo do grafico antes da letra u. 


deve-se pressionar o 
para se obter o ca- 


racter formado. 


CONTROLES: 



Move a nave para 
move a nave para 


a 

a 


esquerda 

direita 


10 PAPER 3: BORDER 3 

20 RESTORE: LET x=20: LET y=l6: LET g=20: LET p=12 


30 DIM u(21): DIM a$(22,4): DIM b$(21,4) 


40 FOR c=0 TO 7: READ d:POKE USR "u"+c,d: 
50 PRINT AT x,y;"u" 

60 LET i=l 

70 IF i >» 20 THEN GOTO 210 
80 LET z=INT(RND*100+l) 



90 IF z < 25 THEN LET a$(i)="■■■*':LET b$(i)=" ■ ":LET u(i)=5 


100 IF z >= 25 AND z< 50 THEN LET a$(i)="B*B":LET b$(i)="BB": 


LET u(i)=4 

110 IF z >- 50 AND z < 75 THEN LET a$(i)=”BB ":LET b$(i)= , »BM”: 
LET u(i)=3 

120 IF z >= 75 AND z< - 100. THEN LET a$(i)="'l ,, :LET b$(i)=''BB 
■ LET u(i) = 2 

130 IF i-1 THEN LET a$(i)* H li": LET LET u(i)=3 

140 IF i >1 AND u(i)=5 OR u(i)=2 THEN GOSUB 180 
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150 PRINT AT g,p;a$(i);AT g',p+u(i)+2;b$(i) 

160 LET i=i+l: LET g=>g-l 
170 GOTO 70 

180 IF u(i)=5 AND u(i-l)=2 THEN LET a$(i)="n": LET b$(i)="H 
BOB": LET u(i)=2: RETURN 

190 IF u(i)=2 AND u(l-l)=5 THEN LET a$(i)="MiH": LET 
b$(i)”"HLET u(i)*5: RETURN 
200 GOTO 150 
210 LET i=l 

220 FOR t=l TO 20 
•230 IF y < =p+u(i)-2 THEN GOTO 400 
2 35 IF y > =p+u(.i)+2 THEN GOTO 400 
240 LET i=i+l 
250 LET t$=INKEY$ 

260 IF t$="d" THEN LET y=y+l: GOTO 290 
270 IF THEN LET y=y-l: GOTO 320 

280 GOTO 310 

290 IF y=p+u(i)-2 THEN GOTO 400 

300 PRINT AT x,y;"u";AT x+l,y-l;"D": GOTO 350 

310 GOTO 340 

320 IF y=p+u(i)-2 THEN GOTO 400 
330 PRINT AT x,y;"u"; AT x+1,y+l;"n" 

340 IF t$= m ’ THEN PRINT AT x,y;"u"; AT x+l,y; 

350 LET x—x—1 

360 PAUSE 20 

370 SOUND .019,10 . 

380 IF x<=l THEN GOTO 440 
390 NEXT t 

•400 CLS: SOUND .3,10: SOUND .3,15: SOUND .3,20: PRINT INK 4; 

"voce bateu": PRINT "mais urn jogo?" 

410 INPUT s$: IF s$=”s" THEN RUN 
420 STOP 

430 DATA BIN 00001000, BIN 00001000, BIN 00001000, 

BIN 00001000, BIN 00011100, BIN 00111110, BIN 01101011, 
BIN 11001001 



440 CLS 

450 SOUND .3,40: SOUND .3,35: SOUND .3,30: PRINT INK 4; 
"parabens, voce passou" 

460 PRINT "mais urn jogo?": INPUT s$; IF s$="s" THEN RUN 
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Em meio a uma viagem espacial, voce se de¬ 
para com.urn grave perigo: sua nave acabade pene- 
trar uma nuvem de asteroides, uma colisao serS fa¬ 
tal e voce tern que conduzi-la com rauita destreza pa 
ra que possa ultr’apassar este cinturao de perigo 
com vida. 

Muito cuidado, pois poucos conseguiram es— 
ta faqanha. Em ultimo caso, BOA SORTE. 

CONTROLES : 

( R. move a nave para cima 
F. move a nave para baixo 


5 LET 1=1 
20 DIM a(255) 

30 FOR u=l TO 255 

40 LET a(i)=INT(RND*175+1) 

50 PLOT INK 0;u,a(i) A 

60 LET i-ifl ^ 7 - 

70 NEXT u • -1* 

80 LET g=90 { 

90 LET i=l 

100 FOR c=l TO 255 . 

110 PLOT INK 2;c7g ° 

120 IF g=a(i) THEN GOTO 200 
130 LET i=i+l 
140 LET t$=INKEY$ 

150 IF t$="r" THEN LET g=g+l 
160 IF t$="f" THEN LET g=g-T 
170 NEXT c 

180 PRINT INK 4; "parabens, voce passou" 
190 GOTO 210 





200 PRINT INK 3; "bum, voce bateu" 

210. .‘PRINT INK 4; "novo jogo?" : INPUT t$: IF t$ 
THEN RUN 
220 STOP 
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Sua cidade esta sendo amendrontada por um 
terrivel band id o espacial com nome de SPILY DE BLIT. 
Como xerife de sua cidade o seu dever e desafiar 
SPILY DE BLIT para um duelo de vida ou morte. Este 
jogo e para duas pessoas. Uma comand'ara SPILY DE 
BLIT e a outra comandara o xerife. Se acha que co- 
mandando o bandido tera mais chances esta enganado 
porque o seu TK-90X COLOR COMPUTER nao definiu quern 
e o bandoleiro e quern e o xerife, por isso nao ha- 
vera desvantagens entre os competidores, certo!!!!. 
As teclas que comandarao uma das: naves- interplanet 
rias serao Z para a esquerda, C para a di'reita e X 
que dispara o poderoso tiro de uma bala de prata, A 
outra nave sera comandada com as teclas M para a di 
reita, B para a esquerda e a tecla N dispara sua pot 
derosa bala de prata. Como sempre- existe um proble- 
ma, se duas teclas forem pressionadas ao mesmo tem¬ 
po, o computador so atendera o comando da primeira 
a ser apertada, entao nao deixe a tecla muito tempo 
apertada, a nao ser que voce quei'ra trapacear, Voce 
podera escolher o nome do comandante da sua nave(vo 
ce e claro!). Use sua imaginaqao para os mais belos 
e sugestivos nomes, Este jogo lhe proporcionarS mui 
ta emoqao porque al£m de ser para dois participant 
tes ele possui som e e muito colorido e divertido. 


(O B S Nao se esqueqa que toda letra que estiver en¬ 
tre colchetes deve ser.escrita em modo grafico. 


Agora prepare sua nave para o duelo e come 
ce a digitar o programaI!!!! 
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10 PAPER 2: BORDER 1 
20 LET c»l: LET z=l5 
30 LET x=21: LET y=16 
40 FOR q=0 TO 7 
50 READ w 

60 POKE USR ,, U"+q,w: NEXT q 
70 DATA BIN 00011000, BIN 00011000, BIN 00111100, 

BIN 01011010, BIN 10111101, BIN 10111101, BIN 10111101, 

BIN 00000000 

80 FOR q=0 TO 7: READ s:P0KE USR "e”+q >s :NEXT q 
90 DATA BIN 00111100, BIN 01111110, BIN 11111111, 

BIN 11000011, BIN 01100110, BIN 01100110, BIN 01100110, 

BIN 01100110 

100 DIM h.$(2,9): FOR i=l TO 2: INPUT "Qual o seu nome?"; 
h$(i);: NEXT i 

110 INK 6: LET a$="n[u]n": PRINT AT x,y';a$ 

120 INK 4: LET d$="D[X3D": PRINT AT c,z;d$; INK 0 

130 LET s$=INKEY$ 

140 IF s$="z" THEN LET y=y-l 
150 IF s$= ,, c , ‘ THEN LET y=y+l 
160 IF s$="x" THEN GOTO 250 
170 IF y <- 1 THEN LET y=l 
180 IF y = 30 THEN LET y=29 
190 IS sf s V THEN LET z - z+1 
200 IF s$ ** "n" THEN GOTO 315 
210 IF s$ - "b" THEN LET z = z-1 
220 IF z = 30 THEN LET z « 29 

230 IF z < = 1 THEN LET z = 1 

240 GOTO 110 
250 SOUND .0018,-5 
260 FOR v»x TO 0 STEP -1 
270 PRINT INK 1; PAPER 1; FLASH 1; AT v,y+l;"# M : SOUND .0018 
280 PRINT AT v,y+l} *»□" 

290 NEXT v 


300 IF zoy AND vo c THEN GOTO 130 
305 FOR k=0 TO 15: SOUND .0013,k: NEXT k 

310 PRINT FLASH 1; AT 10,0;h$ (1) VENCEU 0 DUELO”: GOTO 360 

315 SOUND .002,-12 

320 LET w=c: FOR w=c TO 20 

330 PRINT INK 0; PAPER 2; AT w+1, z+1; AT w+l,z+l;"0" 

: SOUND .0018,w 
340 NEXT w 

345 IF w=x AND z=y THEN FOR k=15 TO 0 STEP ^1; SOUND .0018 k: 
NEXT K: PRINT FLASH 1; AT 10,10;h$('2); " VENCEU 0 
DUELO!": GOTO 360 
350 GOTO 130 

360 INPUT "Quer jogar novamente";f$ 

370 IF f$="s" THEN RUN 

380 CLS 

385 BORDER 7 

390 PAPER 7 

400 INK 0 

410 STOP 





ESPACIAL 


49 


Voce esta perdido num beco espacial, pro- 
curando por ajuda, porem nao sabe o que lhe aguarda 
no final deste beco, Para lhe adiantar, posso dizer 
que no fundo mora .uma familia de 5 monstros que es- 
tao sempre com fome. Ao primeiro sinal de vida em 
sua regiao, eles tentarao devora-lo. Todavia, voce 
esta munido de uma arma laser para se defender. Seu 
objetivo e destruir os 5 monstros antes que eles 
cheguem perto denials. 


CONTROLES: 


A. 

move 

voce 

para 

c ima 

z. 

move 

voce 

para 

baixo 

L. 

atira 





© nas linhas 210 e 220, press ion ar o mo do grafi 
co para as teclas a e b, obtendo-se os carac 
teres graficos formados. 

^Lembre-se: voce so tern uma 
10 LET r=0 

20 PAPER 0: BORDER 3 

30 RESTORE: LET g=ll: LET p=0: LET x=ll: LET y=31 
40 PRINT INK 4; AT l,l;r 
50 FOR d=0 TO 7 
60 READ c 

70 POKE USR ”a”+d,c 
80 NEXT d 
-/90 FOR d=0 TO 7 
100 READ c 

110 POKE USR H b*'+d,c 
120 NEXT d 

130 IF p >» y THEN GOTO 390 
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140 LET h - INT(RND*15+1) 

150 IF h > = 7 THEN LET g = g+1 
160 IF h <7 THEN LET g « g-1 
170 IF g<= 1 THEN LET g = 1 
180 IF g >■ 19 THEN LET g = 19 
190 IF x > ~ 19 THEN LET x = 19 
200 IF x< = 1 THEN LET x = 1 
210 PRINT INK 2; AT g,p;”a";AT g+l,p;"OC] ,, ;AT g-1,p-1 
AT g,p-l; M On M 

220 PRINT INK 1; AT x,y; "b"* AT x-l,y; n O"; AT x+l t y}"D" 
230 LET- t$ = INKEY$ 

240 IF t$="a" THEN LET,x = x-1 
250 IF t$—"z" THEN LET x = x+1 
260 IF THEN GOTO 290 

270 LET p=p+l 
280 GOTO 130 

290 FOR j=y TO p STEP -1 

295 PRINT INK 2, AT g,p;"a"; INK 1; AT x,y;"b" 

300 PRINT INK 6; AT x,j;"-D" 

310 SOUND .019,1 
320 NEXT j 

330 PRINT AT.x,j; ,, DCia AT x,y;" □" 

340 PRINT AT g,p 

350 IF g=x THEN SOUND .1,10: GOTO 470 
360 GOTO 130 

370 DATA BIN 00111100, BIN 01111110, BIN 11101011, BIN 
11111111, BIN 11111111, BIN 11000011, BIN 11111111, 
BIN 11111111 

330 DATA BIN 00011000, BIN 00111100, BIN 00011000, BIN 
11111000, BIN 00011000, BIN 00100100, BIN 01000010, 

BIN 10000001 

390 IF g > x THEN LET i « -1 
400 IF g < x THEN LET i B 1 
410 FOR t = g TO x STEP i 


420 PRINT INK 7; AT t,y; "a" 

430 NEXT t 

440 SOUND .3,15: SOUND .3,10: SOUND .3,5 
450 PRINT INK 7; "o monstro te pegou" 

460 STOP 

470 LET r * r+1: IF r = 5 THEN GOTO 490 
480 GOTO 30 

490 SOUND .3,5: SOUND .3,10: SOUND .3,15 

500 PRINT INK 7; "parabens, voce acabou com os monstros": 

PRINT INK 6; AT i,l; ,, 5" 

510 STOP 
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Voce foi atacado por outra galaxia,que des 
truiu o seu planeta alem de ter matado sua esposa. 
Agora vingue-se, matando o maximo posslvel de inva- 
sores desta galaxia. Voce so tem vinte misseis para 
ataca-los. A tecla 8 move sua nave para direita, a 
tecla 5 move sua nave para esquerda a tecla 0 dis 
para o seu poderoso mrssil. 

{ pBS Toda vez que as letras estiverem entre cplche 
tes devem ser escritas era modo grafico. Para obter 
os caracteres da linha 340 deve-se pressionar CAPS 
SHIFT 9,6,6,6,6 e 9. 

10 FOR r=l TO 4: READ q$ 

20 FOR e=0 TO 7 
30 READ w 

40 POKE USR q$+e,w 
50 NEXT e 
60 NEXT r 

70 DATA ”R", BIN 10000000, BIN 11000000, BIN 11100000, BIN 

11110000, BIN 11111110, BIN 11111111, BIN 11111111, BIN 

11111111 

80 DATA "Q", BIN 00000000, BIN 00000000, BIN 0111000, BIN 
11111110, BIN 11111110, BIN 11111111, BIN 11111111, BIN 
11111111 

90 DATA "I", BIN 00000000, BIN 00000000, BIN 00000000, BIN 

00000000, BIN 00000000, BIN 11100000, BIN 11111100, BIN 

11111111 

100 DATA ”0", BIN 0001000, BIN 0001000, BIN 0011100, BIN 
1011101, BIN 1011101, BIN 1011101, BIN 01111111, BIN 
01111111 

110 BORDER 1: INK 0: PAPER 5: LET y=0: LET t=0 




56 


120 LET A$ ss "D [RQlJ□ " 

130 LET aviao * 0 

140 LET arma = 16: LET e$ = ,, n[o]n" 

150 PRINT INK 1; AT 21, arma; e$ 

160 PRINT INK 1; AT 2, aviao; a$ 

165 LET m$ = INKEY$ 

170 PRINT AT 0,1; "TIROS t; AT 0,15;' "ACERTOS□ ";y 
175 IF t»20 THEN GOTO 380 
180 LET aviao = aviao+1 

190 IF aviao-26 THEN PRINT AT 2, "aviSo;"□□ □ LET aviao = 0 

200 IF m$ ■ = THEN GOTO 160 

210 IF m$ = ”5" THEN LET anna=arma-l: GOTO 150 

220 IF m$ = "8" THEN LET arma-arma+1: GOTO 150 

230 IF m$ <> "0" THEN GOTO 150 

240 LET t = t+1 

250 FOR i - 20 TO 1 STEP -1 

260 PRINT INK 1; AT 2, aviao; a$ 

270 IF SCREEN$ (A ,arma+l) <> "□" THEN LET y=y+l: GOTO 330 
280 PRINT AT £,arma+l;"* " 

290 LET aviao=aviao+l 

300 IF aviao >26 THEN PRINT AT 2, aviSo; " □□□": LET aviio=0 
310 PRINT AT A,artna+1; ,, D" 

320 NEXT % 

325 GOTO 150 

330 REM Aqui indica-se a explosao 

340 PRINT INK 5; PAPER 4; AT 2, aviao; FLASH l;"fiB (MSB" 

350 FOR z=l TO 20: SOUND .013,2: NEXT z 

360 CLS 

370 GOTO 120 

380 PRINT INK 3; AT 10,1; "DE Q n ;t;"0 tiros vocg acertoud"; y 
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Este jogo e muito facil para os que tem ura 
pouco de habilidade, porem se a pessoa for nervosa 
e atrapalhada batera varies vezes. No programa voc 
esta dirigindo um super carro, uma FERRARI 365 GTB 
vermelha, de 12 cilindros e o seu objetivo sera de 
viar dos carros que voce rapidamente! vai deixand 
os para atras. Voce deve permanecer ultrapassando 
os inuteis carros durante um certo tempo sem eho- 
car-se com nenhura deles. Nunca aparecerao mais de 
dois carros aq mesmo tempo na tela por isso este 
jogo nao e muito dificil. Voce podera se divertir 
bastante e dar umas boas gargalhadas das batidas de 
seus companheiros ou ate de seus pais. 



i s so 
f ico. 
tando 


| Na linh-a 5 5 a letra [T] esta 
significa que ela deve ser 
Na linha 65 os caracteres 
a tecla CAPS SHIFT e 9,6,9 


entre colchetes e 
escrita em modo gra 
sao obtidos aper- 


Fa?a de conta que voce ja 
FERRARI e digite o programa o mais 

1 BORDER 1: PAPER 6 

10 LET X=15: LET Y=14: LET V=0: LET K=0 
20 FOR Q=0 TO 7 
30 READ S 

40 POKE USR ,, T”+Q,S 
50 DATA BIN 00111100, BIN 11111111, BIN 01111111, BIN 

01111110, BIN 11111111, BIN 11111111, BIN 00111100, BIN 

00000000 

55 LET A$ = "D[t]D": LET H$ = "□[t]D" 

60 NEXT Q 


esta dirigindo a 
rapido possivel! 



(<u. *■ to) oi 
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65 FOR J=1 TO 21: PRINT AT J,13;"HDODDDDnnnnBfREM ENTRE 
OS CARACTERES GR&FICO TEM 10 ESPAQOS BRANCOS: NEXT J- 
70 LET F=14+INT(RND*5) 

75 FOR U=1 TO 18 
80 PRINT INK 2; AT X,Y;A$ 

90 LET U$=INKEY$ 

100 IF u$="g" THEN LET y=y+l 
105 LET k=k+l: IF K=400 THEN GOTO 170 
110 IF U$="f" THEN LET Y=Y-1 
115 PRINT INK 4; AT U,F;H$;AT U+3,F+3;H$ 

120 IF Y ~> = 20 THEN LET Y = 20 
125 PRINT AT 1,1; V; "ftBatida(s)" 

130 IF Y< = 14 THEN LET Y = 14 
135 IF U=X AND F=Y THEN LET v=v+l: SOUND .01,-1 
140 IF. U+3=X AND F+3=Y THEN LET V=V+1:. SOUND .01,10 
145 PRINT AT U-l, F+l; AT U+2, F+4; 

150 NEXT TI 

155 PRINT AT 18,15□□□□QDDD "; AT 21,15; '!]□□□□□□□ " 

160 GOTO 70 

170 CLS: PRINT "Voce bateu Dvez(es) □ ";"D emD ”;K;"D 

segundos" 

180 INPUT "Quer jogar novamente?"; K$ 

190 IF KSi ="s" THEN RUN 
200 STOP 
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Agora, teste sua habilidade num rallye emo 
cionante. Voce e o condutor de um gurgel verde, que 
tem que atravessar uma pista muito acidentada (ver- 
melha) , de limites- azuis. Para isto, e necessaria 
muita pericia, muita destreza. 0 seu carro pode an- 
dar era duas ve1ocidades: • uma lenta,' case voce nao 
esteja ape.rtando tecla nenhuma, e outra mais rapi- 
da, se voce desejar uma travessia mais perigosa, 
quando voce mantiver alguma tecla apertada. 

0 programs fornece sua pontuaqao e guarda 
as pontuaqoes mais altas. Boa sorte! 


CONTROLES: 

fM. d i r e i t a 
[B. esquerda 


Qualqner tecla pressionada aumenta a velocida 
carrinho. Os caracteres graficos da linha 110 
obtem-se apertando as teclas o e p nos' modos grafi 
cos . 



de do 


2 FOR t=0 TO 7: READ a,b 

3 POKE USR "p"+t,a: POKE USR "o"+t,b 

4 NEXT t 

5 DATA 170,255,85,255,170,60,85,60 

6 DATA 170,60,87,60,170,255,85,255 

7 LET c$="bum" 

3 DIM c$(10) 

10 LET h=0 

20 LET s=0 



25 LET x=5:LET a=3:CLS 
30 FOR n=0 TO 20 

40 PRINT TAB a; INK l; ,, ■' , ; INK 2;"«Hr; INK 



64 


50 LET a=a+(a< 7 AND a)*SGN(RND-.'5) + (N0T a)-(a=7) 

60 NEXT n 
70 LET a=x 

80 FOR n=l TO 20 /Juswi-V 

90 LET p=ATTR(n,x) 

110 PRINT AT n-l,a;INK 2;"o";AT n,x;INK 4;''p" 

120 IE p=57 THEN GOTO 170 
130 LET a=x 



"'~T& 


140 IE INKEY$=V THEN LET x=>x+l 

143 IF INKEY$="b" THEN LET x=x-l 

144 SOUND .019,1 

145 PAUSE 20 
150 NEXT n 

160 LET s=s+n: GOTO 25 
170 LET s=s+n 

175 FOR a=l TO 10: BORDER RND*7: SOUND .l,a-10 
180 PRINT AT 2,10+a;INK RND*5;c$(a) 

183 NEXT a 

185 PRINT AT 4,ll;"pontuasao:D";s 
190 IF h <s THEN LET h=s 

200 PRINT AT 6,11;INK 1;FLASH 1}" maior pontua?ao:"; h 
210 INPUT "outro jogo?";a$ 

230 IF a$="s" THEN GOTO 20 
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A ultima prova do campeonato mundial de 
formula I esta para comegar. So ha dois corredores, 
voce e seu oponente. Como voce sabe, nas corridas 
de formula I ha muita emogao, muitas dif iculdad-es 
e para que seu carro ande voce deve resolver um pe- 
queno problema que consiste em calcular quantos me¬ 
tros o mesmo percorrera uraa vez que a velocidade (em 
km/h) e o tempo (em segundos) serao aleatoriamente 
exibidos pelo seu TK 9^X Color Computer.Quanto mais 
proximo for a sua resposta do verdadeiro valor mais 
o seu carro andara!,' ! ! . Para que voce nao se de mal 
aqui vai uma dica: se o seu carro estiver a 72 k.ra/h 
durante 4 seg. ele percorrera a distancia de 80 m. 



Na linha 100 a letra[A]deve ser es- 
grafico de maneira que para escreve- 


la deve-se pressionar a tecla CAPS SHIFT 9, A,9. 


logia. 


Esta e a terceira observagao sobre a sirabo 
Agora engate a quarta marcha e comece di- 


gitar o programa abaixo. 


1 PAPER 1 

2 BORDER 2 

10 REM Corrida 
30 RAND 

40 DIM h$(2,9) 

50 DIM m(2) 

80 FOR m=0 TO 15 
90 READ f 

100 POKE USR M A"+m,f 
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110 NEXT m 

120 DATA 0,102,255,255,255,102,0,0 

130 DATA 204,204,51,51,204,204,51,51 

140 PRINT PAPER 3; INK 9; AT 6,2; "Qual e o seu nome?" 

160 INPUT h$(1) 

170 PRINT PAPER 3; INK 9; AT 10,0;"Voce tem o carro roxo" 

190 INPUT "Qual e o seu nome?";h$(2) 

200 PRINT PAPER 6; INK 9; AT 15,0;h$(2);", tem o carro amare- 
lo” 

220 PAUSE 99: CLS 
240 FOR 0=0 TO 31 
250 PRINT INK 2; AT 6,o;"[b]" 

260 PRINT INK 2; AT 12,o; ”[b]" 

270 NEXT o 
280 FOR o=7 TO 11 
290 PRINT INK 4; AT o,30;CHR$ 145 
300 NEXT o 
310 LET m(l) = 1 
320 LET m(2) = 1 

325 PRINT INK 3; AT 8,1; CHR$ 144 
330 PRINT INK 6; AT 10,1; CHR$ 144 
340 FOR £-1 TO 2 
350 LET te=INT(RND*90)+10 
360 LET v=INT(RND*150)+50 
370 PRINT PAPER 4; INK 9; AT 1,0; "Velo:";v;" O.Wh" 

380 PRINT PAPER 6; INK 9; AT 18,1; "Tempo:";te;" □ seg." 

390 PRINT INK 1*3; AT 20,0; "Qual a distancia que voce acha 
que o carro percorrera" 

400 INPUT INK $,*3; "Quantos metros”;gh 

410 LET ca=(v*te*1000)/3600 

420 LET w=INT (5-ABS((ca-gh)/50>) 

430 FOR o=m(Jl) TO m(£)+w 
440 PRINT AT 6+2,*2,m{£) ;" □ " 

450 LET m(£)=m(it)+l 


460 PRINT INK '£*3; AT 5 CHR$ 144 

470 SOUND .1,-12 

480 IF m(ili)=30 THEN GOTO 520 

490 NEXT o 

500 NEXT t 

510 GOTO 340 

520 SOUND .3,6: SOUND .6,12: PAUSE 150 
550 CLS 

560 PRINT PAPER £*3; INK 9; AT 8,4;h$(l); "o campeao::!" 
570 PRINT PAPER 4; INK 9; AT 14,9; "Quer jogar.de novo" 
580 LET a$=INKEY$ 

590 IF a$="" THEN GOTO 580 
600 IF a$="s" THEN GOTO 220 
610 GOTO 580 
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Voce foi desafiado a pular um certo numero 
de onibus que sera aleatoriamente sorteado pelo seu 
TK 90X COLOR COMPUTER. Para saltar voce deve pres- 
sionar qualquer tecla que acionara o seu motor. A 
velocidade (era km/h.) aparecera no alto da tela.Quan 
do voce alcanqar a velocidade desejada largue o bo- 
tao, a sua moto saira correndo com a finalidade de 
pular a quantidade de onibus da tela. Se sua moto 
perder a rampa o seu TK 90X lhe dara a seguinte men 
sagem "Voce foi muito rapido e perdeu a rampa" e se 
voce for muito devagar o seu TK 90X escrevera na te 
la a mensagem "Voce foi muito devagar e chocou-se 
com o onibus". Para saber o que acontece quando vo¬ 
ce pula certo,so. jogando. Agora prepare sua super 
moto para pular sobre uma fila de onibus que pode 
variar de um a dezoito.. Tome cuidado,. Eilll Eu 
ja ia me esquecendo de dizer para usar o seu capace 
te prevenindo consequencias piores era acidentes pe- 
rigosos. 


[ ORS^j J Toda vez que aparecer uma letra entre colche- 
tes ela deve ser escrita em modo grafico. Para 
obter uma letra em modo grafico e so apertar 

CAPS SHIFT 9, a letra desejada, novamente 9. 

Esta e a quarta vez que se destaca isto... 
Agora comece a digitar o programs!I I 

S c ^ 

10 FOR JL-X TO 

20 FOR y»0 TO 7 EX 

30 READ s CotfO 

40 POKE HSR a$+y,s '-KJj.:. ^ 

50 NEXT y 
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60 NEXT l 

70 DATA BIN 00000001, BIN 00000011, BIN 00000111, BIN 

00001111, BIN 00011111, BIN 00111111, BIN 01111111, BIN 
11111111 

80 DATA "m", BIN 10000000, BIN 11000000, BIN 11100000, BIN 
11110000, BIN 11111000, BIN 11111100, BIN 11111110, BIN 
11111111 

90 DATA "n", BIN 00000000, BIN 00000000, BIN 00000100, BIN 
11101111, BIN' 01011010, BIN 11111010, BIN 11100111, BIN 
01000010 

100 DATA 'V, BIN 11111111, BIN 10001001, BIN 10001001, BIN 
11111111, BIN 10001001, BIN 10001001, BIN 11111111, BIN 
11111111 

110 DATA V', BIN 00000000, BIN 01100111, BIN 01011111, BIN 
00011010, BIN 00110000, BIN 01000000, BIN 11100000, BIN 
01000000 
120 RAND 

130 LET oni=INT (RND*17)+2 
140 BORDER 3: INK 1: PAPER 6 
150 GOSUB 560 
160 LET m=0 

170 PRINT AT 1,11; "0 Km/h*' 

180 IF INKEY$=""THEN GOTO 180 
190 LET m=m+5+INT <RND*6) 

200 IF m >170 THEN LET m=170 
210 PRINT AT l,ll;m; ,, 0Km/h" 

220 IF INKEY$< >THEN GOTO ] 

230 LET km=m 
240 LET z=INT (RND*11) 

250 LET m=m+(z-5)-40 
260 LET j=9+INT(m/7.5+.5) 

280 IF m <-5 THEN LET j=6 
290 FOR n»l TO 4 

300 PRINT AT 10,n~l;"□ AT 10,n; "[n]" 


310 NEXT n 

320 PRINT AT 10,4; " AT 9,5; "[p]" 

330 SOUND .018,-20 

340 PRINT AT 9,5; AT 8,6; "[p]" 

350 IF j=6 THEN GOTO 400 
360 FOR n=7 TO J 

370 PRINT AT 8,n-l;" □"; AT 8,n;"[p]" 

380 SOUND .018,-20 
390 NEXT n 

400 PRINT AT 8, jAT 9,j+l; "[p]" 

410 SOUND .018,-20 
420 PRINT AT 9,j+l;" Q"; AT 10,j+2; "[p]" 

430 IF j < > oni+7 THEN GOTO 670 
440 FOR n=j+3 TO 31 

450 PRINT AT 10,n-l;"n"; AT 10,n; !, [n]" 

460 SOUND .03,20 
470 NEXT n 

480 PRINT AT 10,31;"a" 

490 CLS 

500 PRINT AT 4,U;"BOM PULO"; AT 6,0;"Voce pulou os oni; 
" O onibus"' 

530 PRINT AT 8,6; "Velocidade deO"; km; "□km/h" 

540 PAUSE 300 
550 RUN 
560 CLS 

580 PRINT AT 11,0;" 

590 PRINT AT 10,5; "[l]" 

600 FOR n=7 TO oni+6 
610 PRINT AT 10,n; "[o]" 

620 NEXT n 

630 PRINT AT 10,oni+7; 0*3" 

640 PRINT AT 10,0;"D" 

650 RETURN 






670 IF j< oni+7 THEN GOTO 710 

680 PRINT AT 4,1; "Voce foi muito rapido e perdeu a rarapa" 
690 FOR g=l TO -300 I 0<2> 

695 NEXT g 
700 GOTO 150 

710 PRINT AT 6,0; "Voce foi muito devagar e chocou-se com o 
onibus" 

720 FOR g=l TO 3'00' jOO 
725 NEXT, g 
730 GOTO 120 
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0.seu planeta acaba de ser atacado pelos 
invasores interplaneatarios e voce foi a Unica pes- 
soa que escapou desse ataque, e para sobreviver vo¬ 
ce deve aterrissar em outro planeta. Mas a sua nave 
nao esta em boas condigoes e alem disso o computa 
dor nao demarcou o limite da tela. As teclas A e Z 
controlam a sua nave para.cima e para baixo e as le 
tras 0 e P controlam sua nave para os lados. 


( OBS .y A letra[R]inas linhas 10 a 90 deve ser escri- 
ta em modo grafico. 


1 LET x=l: LET d=l: FLASH 0: CLS: PAPER 6: BORDER 1 
5 REM ATERRISSAGEM 
10 POKE USR "[R]"+0, BIN 00011000 
20 POKE USR ”'[R]"+1, BIN 00011000 
30 POKE USR M [R]"+2, BIN 00111100 
40 POKE USR "[R]"+3, BIN 01111110 
50 POKE USR ,, [R] ,, +4, BIN 11111111 
60 POKE USR "[R]"+5, BIN 11011011 
70 POKE USR ”[r]"+ 6, BIN 10011001 
30 POKE USR ,, [R]”+7, BIN 11100111 
90 LET a$="[R]" 

95 FOR d=*d TO 21 
100 LET k$=INKEY$ 

110 IF k$="o" THEN LET x=x-l 
120 IF k$="p" THEN LET x=x+l 
140 PRINT INK 2; AT d*x;a$; AT d-l,x;"On" 

143 IF x <1 THEN GOTO 7000 

145 PRINT AT d-l,x-l; " 

146 PRINT INK 1; AT 20,0;”MaaiBiaSBHiniBCiaMKIfllllSIMM" 
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147 IF d=20 AND x=16 THEN GOTO 6000 

148 IF d=20 AND x<> 16 THEN GOTO 7000 
150 IF k$="a" THEN GOTO 2010 

160 NEXT d 

2010 FOR d=d TO 1 STEP -1 
2020.IF k$="o" THEN LET x=x-l 
2025 LET k$=INKEY$ 

2030 IF- x=30 THEN GOTO 7000 
2035 IF x=0 OR d=l THEN GOTO 7000 
2040 IF k$="p H THEN LET x=x+l 

2045 PRINT INK 3;AT d,x;a$;AT d+l,x-l;"na";AT d+1,x+l;"DO" 
2050 IF k$="z" THEN GOTO 90 
5000 NEXT d 

6000 PRINT AT 1,12; INK 2; "Parabens" 

6005 SOUND .6,-12: SOUND .7,-10 
6010 GOTO 7010 

7000 FLASH 1: PRINT AT 1,12; PAPER 1; INK 3; "Voce bateu" 
7003 SOUND .7,-10: SOUND -5,11 
7005 LET k$=INKEY$ 

7010 PRINT AT 3,1; INK 3; PAPER 1; "Quer jogar de novo" 
7020 IF k$='V’ THEN GOTO 1 
7030 GOTO 7005 




Kz/s/j/gf/j n \ nn 
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0 seu TK 90X pode fazer coisas que voce 
nem imagina. Uma delas e se transformer num instru¬ 
ment© musical perfeito. Sua capacidade de audio ja 
provou isso. 

Que tal voce exercitar um pouco a sua habi 
lidade musical? Neste programa, voce pode assumir 
o papel de um grande compositor e executar as mais 
belas musicas de sua autori'a, sem precisar ser um 
genio musical. Aguce seus ouvidos, quem sabe voce 
nao descobre sua vocajao! 


CONTROLES: 

Teclas A,S,D,F,G ,H, J 



te r . o 


Nas linhas de 120 a 180 
;rafico antes de teclar 
caracter formado. 


a* 


deve-se pressionar o 
le.tra a, para se ob- 


10 LET x=0 
20 LET y=0 
30 FOR c*0 TO 7 
40 READ d 

50 POKE USR "a"+c,d 
60 NEXT c 
70 FOR f=0 TO 31 
80 Print AT 5 ,AT 6,f;"-”; AT 7,f;"-"; AT 
AT 9, f i 1 '-”; AT 10,fAT 3; AT 
90 NEXT f 
100 LET t$=INKEY$ 

110 LET p=INT(RND*6+1) 

120 IF t$= 2 "a" THEN PRINT INK p; AT 10,y; OVER l^’a": LET x“l 
130 IF t$*"s" THEN PRINT INK p; AT 9,y; OVER 1; "a": LET x-3 
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140'IF t$="d" THEN PRINT INK p; AT 8,y; OVER 1;. "a": LET x=5 
150 IF t$= n f" THEN PRINT INK p; AT 7,y; OVER 1; "a": LET x=7 

160 IF t$= ,, g" THEN PRINT INK p; AT 6,y; OVER 1; "a": LET x=9 

170 IF t$="h" THEN PRINT INK p; AT 5,y; OVER 1; "a": LET x=ll 

180 IF THEN PRINT INK p; AT 4,y; OVER 1; "a": LET x=13 

190 IF t$="" THEN GOTO 100 
200 SOUND .1,x 
210 LET y=y+l 

220 IF y >= 31 THEN RESTORE: GOTO 10 
230 GOTO 100 

240 DATA BIN 00011110, BIN 00010000, BIN 00001000, BIN 

00001100, BIN 00011110, BIN 00111111, BIN 00111111, BIN 

00011110 



■ I1VW1, IIHVIU 

cheiodeprogramas. 


AUCRODfOML 


PROERflMfl 19 



BflRBQ 
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Disseram que voce § bom de pontaria. Veja- 
mos. um teste no jogo de dardo* Voce comanda um dar^ 
do, que depots de ser lanqado do canto superior es- 
querdo da tela pode mover^se para cima e oara baixo 
andando continuamente para frente. A letra F lanqa 
o seu dardo e a letra A move o seu dardo para cima 
e a letra G move seu dardo para baixo* Ao acertar 
o alvo o computador Ihe emitira um som* 



tes si 
f ico. 


Toda vez que aparecet 
gnifica que voce deve 


uma letra entre colche- 
escreve-la em modo gra- 


Esta e a quinta e ultima observaqao sobre o fato... 
Depois de jogar DARDO nao pense que sera 
tao facil acertar um alvo quando estiver jogando de 
verdad e ll !! 


10 LET x=0: LET y=0: LET 1=30: LET t=ll 
20 PAPER 2: INK 6; BORDER 1 
30 FOR w=l TO 2: READ a$ 

40 FOR g=0 TO 7 
50 READ r 

60 POKE USR a$+g,r 
70 NEXT g: NEXT w 
80 DATA "R", BIN 10000000, BIN 11000000, BIN 11100000, BIN 
00111111, BIN 00111111, BIN 11100000, BIN 11000000, BIN 
10000000 

90 DATA "Q", BIN 01111111, BIN 00111111, BIN 00011111, BIN 
00000011, BIN 00000011, BIN 00011111, BIN 00111111, BIN 
01111111 

100 PRINT AT t,ij "o[q]o'' 
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110 PRINT AT x,y; " □ [r]D" 

120 PRINT AT x-l,y; AT x+l,y; ,, o" 

130 IF INKEY$= , 'f" THEN GOTO 150 
140 GOTO 110 

150 LET g=x: LET k=y; FOR k=l TO 30 

160 IF INKEY$="a" THEN LET g=g~l 

170 PRINT AT g,k; "□ [r] □ AT g,k~l;" □ " 

180 PRINT AT g+l,k-lAT g-l,k~l; n DO n 

190 IF g=t AND k=£ THEN CLS: SOUND .018,5; PRINT AT 11,1; 

"Parabens voce acertou!": GOTO 100 
200 IF INKEY$="g n THEN LET g=g+l 
210 IF g< = 0 THEN LET g=l 
220 IF g >= 21 THEN LET g=20 
230 NEXT k 

450 FOR q=0 TO 21: PRINT AT q,30;"D"; NEXT q 
460 FOR s=l TO 20: SOUND .0018,s: NEXT s 
470 RUN 



PRQERflMfl 20 



ERAFIG0S 
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Para dis trair-s'e, agora apresento um pro- 
grama de graficos. A funqao deste prograraa e preen- 
cher parte da tela em cores aleatorias e outra par¬ 
te com um padrao determinado, em alta resoluqao. As 
combinaqoes possiveis sao as mais diversas, dando 
ao .olhar um espetaculo de cores. 

Os programas graficos servem de exemplo pa 
ra um desenvolvimento proprio do programador, po- 
dendo voce mesmo criar a partir de um programa,seus 
proprios desenhos. E?pero que voce aprecie bastante 
<?ste progratna. 


10 LET d=0 
20 LET k=5 
30 CLS 

40 LET s=2+INT(3*RND) 

50 LET o=INT(2*RND) 

60 FOR x=255 TO 0 STEP -s 



70 PLOT INK d;x,0; DRAW OVER 05 INK d;255-2*x,175 


80 NEXT x 

90 FOR y=0 TO 175 STEP s 

100 PLOT INK k;0,y; DRAW OVER o; INK k; 255,175-2*y 


110 NEXT y 

120 LET k=lNT(RND*7) 

125 LET d=INT(RND*7) 

130 PAUSE 50 

140 GOTO 30 




OUTRAS OBRAS DO AUTOR 


Caderno de Elementos de Computa^ao (linguagem FORTRAN) 

Linguagem BASIC 

BASIC sem segredos 

TK-Divertindo 

TK-Lembrando 

TK-Calculando 

Conhecendo e Utilizando o TK-2000 
TK-2000 na Matematica 
De um APPLE a sua vida 
Imprimindo maravilhas com a GRAFIX 
Brincando com o TRS Color 
BASIC no TK 90X 


PROXIMOS LANQAMENTOS 

Jo^os e Desenhos no TK 90X 
Graficos no TK 90X 
TK-2000 nos Graficos e na Musica 
TK-2000 nas Ciencias Huraanas 
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